﻿Public Class CSachDTO

    Private m_iMa As Integer
    Public Property Ma() As Integer
        Get
            Return m_iMa
        End Get
        Set(ByVal value As Integer)
            m_iMa = value
        End Set
    End Property


    Private m_sTen As String
    Public Property Ten() As String
        Get
            Return m_sTen
        End Get
        Set(ByVal value As String)
            m_sTen = value
        End Set
    End Property


    Private m_iMaTheLoai As Integer
    Public Property MaTheLoai() As Integer
        Get
            Return m_iMaTheLoai
        End Get
        Set(ByVal value As Integer)
            m_iMaTheLoai = value
        End Set
    End Property

    Private m_strTacGia As String
    Public Property TacGia() As String
        Get
            Return m_strTacGia
        End Get
        Set(ByVal value As String)
            m_strTacGia = value
        End Set
    End Property


    Private m_iMaDauSach As Integer
    Public Property MaDauSach() As Integer
        Get
            Return m_iMaDauSach
        End Get
        Set(ByVal value As Integer)
            m_iMaDauSach = value
        End Set
    End Property


    Private m_iMaTinhTrang As Integer
    Public Property MaTinhTrang() As Integer
        Get
            Return m_iMaTinhTrang
        End Get
        Set(ByVal value As Integer)
            m_iMaTinhTrang = value
        End Set
    End Property

    Private m_strNhaXuatBan As String
    Public Property NhaXuatBan() As String
        Get
            Return m_strNhaXuatBan
        End Get
        Set(ByVal value As String)
            m_strNhaXuatBan = value
        End Set
    End Property


    Private m_iTienPhatMatSach As Integer
    Public Property TienPhatMatSach() As Integer
        Get
            Return m_iTienPhatMatSach
        End Get
        Set(ByVal value As Integer)
            m_iTienPhatMatSach = value
        End Set
    End Property


    Private m_iTriGia As Integer
    Public Property TriGia() As Integer
        Get
            Return m_iTriGia
        End Get
        Set(ByVal value As Integer)
            m_iTriGia = value
        End Set
    End Property

    Private m_iTenTheLoai As String
    Public Property TenTheLoai() As String
        Get
            Return m_iTenTheLoai
        End Get
        Set(ByVal value As String)
            m_iTenTheLoai = value
        End Set
    End Property



    Private m_iTenTinhTrang As String
    Public Property TenTinhTrang() As String
        Get
            Return m_iTenTinhTrang
        End Get
        Set(ByVal value As String)
            m_iTenTinhTrang = value
        End Set
    End Property


    Public Sub New()

    End Sub

    Public Sub New(ByVal _reader As IDataReader)
        m_iMa = _reader("Ma")
        m_sTen = _reader("Ten")
        m_iMaDauSach = _reader("MaDauSach")
        m_strTacGia = _reader("TenTacGia")
        m_iMaTheLoai = _reader("MaTheLoai")
        m_iTenTheLoai = _reader("TenTheLoai")
        m_iMaTinhTrang = _reader("MaTinhTrang")
        m_strNhaXuatBan = _reader("NhaXuatBan")
        m_iTenTinhTrang = _reader("TenTinhTrangSach")
        m_iTienPhatMatSach = _reader("TienPhatMatSach")
        m_iTriGia = _reader("TriGia")
    End Sub


End Class
